10 CLEAR ;FC=145
12 L=1;H=1;GOTO 60
20 FOR A=BTO C
22 G=*(A)|divided_by|10000;X=RM|divided_by|100;Y=RM;G=ABS(G)
26 IF G=1Y=-Y
27 IF B<182GOTO 40
28 IF B>217GOTO 35
29 LINE X,Y,1
30 NEXT A;RETURN
35 BOX X,Y,L,H,1
36 L=L+2;IF L<8GOTO 30
37 L=1;H=5;BOX X,Y,L,H,1
38 L=1;H=1;GOTO 30
40 BOX X,Y,2,2,3;GOTO 30
60 B=182;C=189;LINE 80,40,4;GOSUB 20
61 B=190;C=197;LINE -80,40,4;GOSUB 20
62 B=198;C=207;LINE -40,14,4;GOSUB 20
63 B=208;C=217;LINE 5,30,4;GOSUB 20
64 B=218;C=233;GOSUB 20
65 BOX 0,-28,140,29,3;B=1;C=181;GOSUB 20
75 BOX -68,-34,1,6,3
76 R=RND (6)-1
77 X=-62;IF R=0GOTO 90
78 P=0
85 BOX X,-34,4,6,3;BOX X,-34,2,4,3;P=P+1;X=X+6
86 IF P<RGOTO 85
90 CX=X+6;CY=-33;TV=*(234)
99 Y=36
100 FOR A=6TO 14STEP 2
110 BOX 0,Y,A,1,1
115 Y=Y-1;NEXT A
120 BOX 0,30,12,6,1;BOX 0,29,2,3,3
124 NT=0
125 &(0)=7;&(1)=82;&(2)=162;&(3)=0
126 :INPUT%(20200);&(10)=155;:INPUT;RUN